﻿

Public Class LocalCameraInfosPanel

    'Local Camera Infos :
    Private _Infos As LocalCameraInfos
    Public Property Infos As LocalCameraInfos
        Get
            Return _Infos
        End Get
        Set(value As LocalCameraInfos)
            _Infos = value
            Me.SuspendLayout()
            If _Infos IsNot Nothing Then
                KTB_CamName.ReadOnly = False
                KTB_CamName.Text = _Infos.CameraName
                KTB_CamId.Text = _Infos.CameraId
                KTB_DevName.Text = _Infos.DeviceName
                KTB_DevId.Text = _Infos.DeviceId
            Else
                KTB_CamName.ReadOnly = True
                KTB_CamName.Text = ""
                KTB_CamId.Text = ""
                KTB_DevName.Text = ""
                KTB_DevId.Text = ""
            End If
            Me.ResumeLayout()
        End Set
    End Property

End Class
